home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / evaltrac.lha / techreport / p.tex / images.pl (.txt) < prev    next >
LaTeX Document  |  1989-12-08  |  4KB  |  139 lines
  1. # LaTeX2HTML 2022 (Released January 1, 2022)
  2. # Associate images original text with physical files.
  3. $key = q//;
  4. $cached_env_img{$key} = q|<IMG
  5.  STYLE="" SRC="|."$dir".q|img14.png"
  6.  ALT="\begin{figure}{\noindent\rule{\textwidth}{.01in}}
  7. \begin{evaltrace}
  8. ;{\it t...
  9. ...o 3
  10. +_\end{evaltrace}\par\par
  11. {\noindent\rule{\textwidth}{.01in}}
  12. \end{figure}">|; 
  13. $key = q/{center}vbox{input{..slashdocslashdocbody}}{center};LFS=12;AAT/;
  14. $cached_env_img{$key} = q|<IMG
  15.   STYLE="" SRC="|."$dir".q|img33.png"
  16.  ALT="\begin{center}\vbox{\input{../doc/docbody}
  17. }\end{center}">|; 
  18. $key = q/{code}(+23){et-->}5{code};LFS=12;AAT/;
  19. $cached_env_img{$key} = q|<IMG
  20.   STYLE="" SRC="|."$dir".q|img3.png"
  21.  ALT="\begin{code}
  22. (+ 2 3) {\et –>} 5
  23. \end{code}">|; 
  24. $key = q/{code}(defmacrosimple-incf(var)(printa)(list'setqvar(list'+var1)))strut(setfa'foo)strut(defuntest(a)(simple-incfa)){code};LFS=12;AAT/;
  25. $cached_env_img{$key} = q|<IMG
  26.   STYLE="" SRC="|."$dir".q|img26.png"
  27.  ALT="\begin{code}
  28. (defmacro simple-incf (var)
  29. (print a)
  30. (list 'setq var (list '+ var 1)))
  31. \strut
  32. (setf a 'foo)
  33. \strut
  34. (defun test (a)
  35. (simple-incf a))
  36. \end{code}">|; 
  37. $key = q/{code}(defunaverage(xy)(let((sum(+xy)))(listxy'average(slashsum2)))){code};LFS=12;AAT/;
  38. $cached_env_img{$key} = q|<IMG
  39.   STYLE="" SRC="|."$dir".q|img10.png"
  40.  ALT="\begin{code}
  41. (defun average (x y)
  42. (let ((sum (+ x y)))
  43. (list x y 'average (/ sum 2))))
  44. \end{code}">|; 
  45. $key = q/{code}(defunbar(y)y)strut(defunbaz(z)z)strut(defunfoo1(x)(bar(bazx)))strut(defunfoo2(x)(bazx)(barx)){code};LFS=12;AAT/;
  46. $cached_env_img{$key} = q|<IMG
  47.   STYLE="" SRC="|."$dir".q|img30.png"
  48.  ALT="\begin{code}
  49. (defun bar (y) y)
  50. \strut
  51. (defun baz (z) z)
  52. \strut
  53. (defun foo1 (x)
  54. (bar (baz x)))
  55. \strut
  56. (defun foo2 (x)
  57. (baz x)
  58. (bar x))
  59. \end{code}">|; 
  60. $key = q/{code}(defundouble(n)(*n2)){code};LFS=12;AAT/;
  61. $cached_env_img{$key} = q|<IMG
  62.   STYLE="" SRC="|."$dir".q|img4.png"
  63.  ALT="\begin{code}
  64. (defun double (n)
  65. (* n 2))
  66. \end{code}">|; 
  67. $key = q/{code}(defungcd(xy)(if(=xy)x(let((x(if(<xy)xy))(y(if(<xy)yx)))(gcdx(-yx))))){code};LFS=12;AAT/;
  68. $cached_env_img{$key} = q|<IMG
  69.   STYLE="" SRC="|."$dir".q|img15.png"
  70.  ALT="\begin{code}
  71. (defun gcd (x y)
  72. (if (= x y)
  73. (let ((x (if (< x y) x y))
  74. (y (if (< x y) y x)))
  75. (gcd x (- y x)))))
  76. \end{code}">|; 
  77. $key = q/{code}(defunquintuple(n)(+(double(doublen))n)){code};LFS=12;AAT/;
  78. $cached_env_img{$key} = q|<IMG
  79.   STYLE="" SRC="|."$dir".q|img6.png"
  80.  ALT="\begin{code}
  81. (defun quintuple (n)
  82. (+ (double (double n)) n))
  83. \end{code}">|; 
  84. $key = q/{code}(defunshifter(konst)#'(lambda(x)(-xkonst))){code};LFS=12;AAT/;
  85. $cached_env_img{$key} = q|<IMG
  86.   STYLE="" SRC="|."$dir".q|img23.png"
  87.  ALT="\begin{code}
  88. (defun shifter (konst)
  89. \char93 '(lambda (x) (- x konst)))
  90. \end{code}">|; 
  91. $key = q/{code}(defunzero-center(data)(mapcar(shifter(averagedata))data)){code};LFS=12;AAT/;
  92. $cached_env_img{$key} = q|<IMG
  93.   STYLE="" SRC="|."$dir".q|img24.png"
  94.  ALT="\begin{code}
  95. (defun zero-center (data)
  96. (mapcar (shifter (average data)) data))
  97. \end{code}">|; 
  98. $key = q/{code}(defvar*n*1000)strut(defunparent(*n*)(child(+*n*2)))strut(defunchild(p)(list*n*p)){code};LFS=12;AAT/;
  99. $cached_env_img{$key} = q|<IMG
  100.   STYLE="" SRC="|."$dir".q|img28.png"
  101.  ALT="\begin{code}
  102. (defvar *n* 1000)
  103. \strut
  104. (defun parent (*n*)
  105. (child (+ *n* 2)))
  106. \strut
  107. (defun child (p)
  108. (list *n* p))
  109. \end{code}">|; 
  110. $key = q/{code}(setfcrude-pi3.14)strut(defuncircumference(r)(*2rcrude-pi)){code};LFS=12;AAT/;
  111. $cached_env_img{$key} = q|<IMG
  112.   STYLE="" SRC="|."$dir".q|img8.png"
  113.  ALT="\begin{code}
  114. (setf crude-pi 3.14)
  115. \strut
  116. (defun circumference (r)
  117. (* 2 r crude-pi))
  118. \end{code}">|; 
  119. $key = q/{code}(setfn1000)strut(defunparent(n)(child(+n2)))strut(defunchild(p)(listnp)){code};LFS=12;AAT/;
  120. $cached_env_img{$key} = q|<IMG
  121.   STYLE="" SRC="|."$dir".q|img12.png"
  122.  ALT="\begin{code}
  123. (setf n 1000)
  124. \strut
  125. (defun parent (n)
  126. (child (+ n 2)))
  127. \strut
  128. (defun child (p)
  129. (list n p))
  130. \end{code}">|; 
  131. $key = q/{evaltrace}+-->;(++23)|+_->;5{evaltrace};LFS=12;AAT/;
  132. $cached_env_img{$key} = q|<IMG
  133.   STYLE="" SRC="|."$dir".q|img2.png"
  134.  ALT="\begin{evaltrace}
  135. +–> ;(++ 2 3)
  136. \vert
  137. +_-> ;5
  138. \end{evaltrace}">|; 
  139.